home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / KillThread.zprx < prev    next >
Text File  |  1995-03-09  |  1KB  |  45 lines
  1. /*
  2.    KillThread.zp 1.0 (12.2.94) by Ueli Kaufmann
  3.    ARexx skript für Zodiac's Point V37.118ß
  4.  
  5. Nutzen:
  6. -------
  7. Killt Threads ab der aktuellen Tiefe.
  8. */
  9.  
  10.  
  11. parse arg zpPort        /* ZP-Port Name als Option erhalten. */
  12. if zpPort == "" then    /* Wirklich? */
  13.    zpPort = "ZPoint"    /* Ätschi-Bätschi */
  14.  
  15. address value zpPort    /* fuer die hardcore-user mit mehreren zps ;) */
  16. options results
  17.  
  18.  
  19. WHICHLEVEL              /* falls wir uns nicht in einem Brett befinden, */
  20. if RESULT ~= "BOARD" then  /* wird das Skript automatisch beendet */
  21.    exit
  22.     
  23.  
  24. MESSAGEINFO Depth       /* Tiefe der aktuellen Nachricht ermitteln */
  25. currDepth = RESULT      /* und abspeichern */
  26. DELETE ONE              /* Kill, kill, kill */
  27.  
  28. do forever
  29.    DOWN                    /* Balken auf folgende Nachricht stellen. */
  30.    if rc ~= 0 then         /* Ist da eine? */
  31.    do                      /* yepo. */
  32.       MESSAGEINFO Depth    /* Tiefe ermitteln */
  33.       nextDepth = RESULT   /* und abspeichern */
  34.  
  35.       if nextDepth > currDepth then   /* Tiefe identisch? */
  36.          DELETE ONE                   /* Kill, kill, kill */
  37.       else                            /* Nein, gleich oder kleiner! */
  38.          leave                        /* Schlaufe verlassen */
  39.    end
  40.    else
  41.       leave                           /* Schlaufe verlassen */
  42. end
  43.  
  44. exit
  45.